my $mph;
my $kts;

print "What is the speed in knots that you would like to convert to MPH? ";
chomp($kts = <>);

$mph = 1.15077945 * $kts;

#printf "You will need to be at least %.1f feet AGL glide $nauticalMiles NM\n", $altitude;
printf "$kts knots is %.1f MPH\n", $mph;